home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 5_2007-2008.ISO / data / Zips / Use_of_DWM2084049202007.psc / dwm glas / Mod_SubClas.bas < prev    next >
BASIC Source File  |  2007-09-20  |  720b  |  29 lines
  1. Attribute VB_Name = "Mod_SubClass"
  2. Option Explicit
  3.  
  4. Public Function FA_SubClas_WndProc(ByVal hWnd As Long, ByVal uMsg As Long, ByVal WParam As Long, ByVal LParam As Long) As Long
  5.  
  6. On Error Resume Next
  7.  
  8. Dim FA_OBJ As Object
  9. Dim FA_OBJ_PTR As Long
  10.    
  11. FA_OBJ_PTR = GetWindowLong(hWnd, GWL_USERDATA)
  12. RtlMoveMemory FA_OBJ, FA_OBJ_PTR, 4
  13.  
  14. If (FA_OBJ.FA_Handler_WndProc(hWnd, uMsg, WParam, LParam) = 0) Then
  15.         FA_SubClas_WndProc = 0
  16.         RtlMoveMemory FA_OBJ, 0&, 4
  17.         Set FA_OBJ = Nothing
  18.         Exit Function
  19. End If
  20.  
  21. FA_SubClas_WndProc = CallWindowProc(GetProp(hWnd, "FA_ExWndProcPtr"), hWnd, uMsg, WParam, LParam)
  22.  
  23. RtlMoveMemory FA_OBJ, 0&, 4
  24. Set FA_OBJ = Nothing
  25.  
  26. End Function
  27.  
  28.  
  29.